# test data freezer
use PlPN;

package Test;

our $Counter = 0;
our $Scalar = 'Scalar';
our @Array = qw(A r r a y 0);
our %Hash = (H => 'a', s => 'h', counter => 0);
our $SRef = \$Scalar;
our $ARef = \@Array;
our %HRef = \%Hash;

PlPN->RegisterData('$Test::Counter');
PlPN->RegisterData('$Test::Scalar');
PlPN->RegisterData('@Test::Array');
PlPN->RegisterData('%Test::Hash');
PlPN->RegisterData('$Test::SRef');
PlPN->RegisterData('$Test::ARef');
PlPN->RegisterData('$Test::HRef');
PlPN->RegisterData('$Test::Arrray[0]');
PlPN->RegisterData('$Test::ARef->[0]');
PlPN->RegisterData('$Test::Hash{H}');
PlPN->RegisterData('$Test::HRef->{H}');

PlPN->RegisterEvent('OnAfterCycle', sub {
	PlPN->alert(<<INFO);
$Counter
$Scalar
@Array
H $Hash{H} s $Hash{s} $Hash{counter}
INFO
	$Counter++;
	$Array[$#Array]++;
	$Hash{counter}++;
});
